home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
util
/
dtype
/
fpHSN_dt40_1.lha
/
HSN_DT
/
Source
/
classbase.i
< prev
next >
Wrap
Text File
|
1995-01-27
|
1KB
|
58 lines
******************************************************************************
*
* HSN Datatype, based on the sourcecode found in OS3.1 Native Developer Kit
*
* Written by Christian Buchner
*
******************************************************************************
* classbase.i
IFND CLASSBASE_I
CLASSBASE_I SET 1
;-----------------------------------------------------------------------
INCLUDE "exec/types.i"
INCLUDE "exec/libraries.i"
INCLUDE "exec/lists.i"
INCLUDE "exec/semaphores.i"
INCLUDE "utility/tagitem.i"
;-----------------------------------------------------------------------
STRUCTURE ClassBase,LIB_SIZE
ULONG cb_SysBase
ULONG cb_DOSBase
ULONG cb_IntuitionBase
ULONG cb_UtilityBase
ULONG cb_DataTypesBase
ULONG cb_SuperClassBase
ULONG cb_SegList
STRUCT cb_Lock,SS_SIZE
ULONG cb_Class
LABEL ClassBase_SIZEOF
;-----------------------------------------------------------------------
LIBINIT
LIBDEF _LVODispatch
;---------------------------------------------------------------------------
CALL MACRO <Function_Name>
xref _LVO\1
jsr _LVO\1(A6)
ENDM
;---------------------------------------------------------------------------
GO MACRO <Function_Name>
xref _LVO\1
jmp _LVO\1(A6)
ENDM
;---------------------------------------------------------------------------
ENDC ; CLASSBASE_I